#include "04. Prestar Subsidios - Sinistro - VD -SINI.au3"
#include "05. Prestar Subsidios - Sinistro - RE - Produto.au3"
#include "06. Prestar Subsidios - Sinistro - RE - SFH.au3"
#include "07. Prestar Subsidios - Sinistro - RE - Subsidio.au3"
#include "09. Prestar Subsidios - Sinistro - PP.au3"
#include "10. Prestar Subsidios - Contingencia - PP.au3"
#include "11. Prestar Subsidios - Sinistro - AU.au3"
#include "04. Prestar Subsidios - CP.au3" 
#include "12. Prestar Subsidios - Sinistro - VD -SISE.au3"

Func preencheFicha()
   
	If $depto = "AU" then
		If $tipoFichaPrestacao = "sinistro" then
			pula(7,10) ; Motivo
			preencheFichaAUSinistro()
			;pula(11,200) ;	botao gravar
			pula(13,200) ; botao enviar
			Send("{ENTER}")
		EndIf
		If $tipoFichaPrestacao = "contingencia" then
			;preencheFichaAUContingencia()
		EndIf
	EndIf
	
	If $depto = "VD" then
		If $tipoFichaPrestacao = "sinistro" then
			If $tipoFichaVD = "SINI" then
				;pula(8,10) ; Motivo
				getElementByName("motivo")
				Send("+{TAB}")
				preencheFichaVDSinistroSINI()
				;pula(11,200)	;botao gravar
				pula(13,200)	;botao enviar
				Send("{ENTER}"); 
			EndIf
			If $tipoFichaVD = "SISE" then
			    pula(8,10) ; Motivo
				preencheFichaVDSinistroSISE()
			EndIf			
		EndIf
		If $tipoFichaPrestacao = "contingencia" then
			;preencheFichaVDContingencia()
		EndIf
	EndIf
	
	If $depto = "RE" then
		If $tipoFichaPrestacao = "subsidio" then
			pula(8,10) ; Motivo
			preencheFichaRESubsidio()
			pula(8,200)	
			Send("{ENTER}"); botao enviar	
		EndIf
		If $tipoFichaPrestacao = "produto" then
			pula(7,10)
			Send("{DOWN}")
			pula(1,10) ; Motivo
			preencheFichaREProduto()
			pula(8,200)	
			Send("{ENTER}"); botao enviar	
		EndIf
		If $tipoFichaPrestacao = "sfh" then
			pula(7,10)
			Send("{DOWN 2}")
			pula(1,10) ; Motivo
			preencheFichaRESFH()
			pula(5,200)	
			Send("Texto Adicional")
			pula(3,200)	
			;Send("{ENTER}"); botao enviar	
		EndIf
	EndIf
	
	If $depto = "CP" then
		preencheFichaCP()
	EndIf
	
	If $depto = "PP" then
		If $tipoFichaPrestacao = "sinistro" then
			pula(8,10) ; Motivo
			preencheFichaPPSinistro()
			pula(13,200)	
			Send("{ENTER}"); botao enviar	
		EndIf
		If $tipoFichaPrestacao = "contingencia" then
			pula(7,300)	
			preencheFichaPPContingencia()
			pula(5,200)	
			Send("Texto Adicional")
			pula(3,200)	
			Send("{ENTER}"); botao enviar	
		EndIf
	EndIf
	
EndFunc

Func prestarSubsidios()

;	WinActivate("http://localhost:9080/LEXW-BsLexWeb/home.do#")
;	Sleep(1000)
;	;getNext("INPUT")
;	pula(8,10) ; Motivo
;	Send($motivo)
;	pula(2,500)
;	Send("{ENTER}") ; abrir popup
;	preencheFicha()
;	pula(7,500)
;	Send($textoAdicionalPrestacao)
;	pula(1,500)
	WinActivate("http://localhost:9080/LEXW-BsLexWeb/home.do#")
	Sleep(1000)	
	;MsgBox(1, "ERROR", "Olha o foco" ) 
	preencheFicha()
	Sleep(2000)
	WinActivate("http://localhost:9080/LEXW-BsLexWeb/home.do#")
	fechaAlert()
	Sleep(2000)
EndFunc